home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2003 #12 / Amiga Plus CD - 2003 - No. 12.iso / AmigaPlus / Tools / AmigaSystem / Pixload-4.2 / Install-pixload < prev    next >
Text File  |  2003-08-21  |  8KB  |  418 lines
  1. ; $VER: Install-Pixload version 4.2
  2. ; Script to install Pixload
  3.  
  4. (message '\n\nPixload version 4.2\n------------------\n\n(Rxmui 32.8 est nécessaire - RXmui 32.8 is required)\n- see at Http://web.tiscalinet.it/amiga/rxmui -\n\n------------------\n\nSi vous avez un ancien répertoire Pixload, il sera nommé : Pixload.old\nIf you have an old Pixload folder, it will be renamed : Pixload.old')
  5. (welcome)
  6.  
  7. (set #drawer
  8.      (cat "Ou voulez-vous installer Pixload ? (un répertoire Pixload sera crée) \n Where do you want to install Pixload package ? (a Pixload folder will be created)")
  9. )
  10.  
  11. (set TargetDir
  12.     (askdir
  13.     (prompt #drawer)
  14.     (default "SYS:")
  15.     (help "")
  16.     )
  17. )
  18.  
  19. (if (askbool
  20.        (prompt "\n\n\n\nVoulez-vous faire une copie de sauvegarde de votre user-startup ?\nMay you want a user-startup backup ?")
  21.        (help "")
  22.        (default 1)
  23.     )
  24.     (
  25.    
  26.     (copyfiles (source "sys:s/user-startup")
  27.        (newname "user-startup.old")
  28.        (dest "sys:s")
  29.     )
  30.  
  31.     ;(copyfiles (source "sys:s/user-startup.old")
  32.     ;   (dest "sys:")
  33.     ;)
  34.     ;
  35.     ;(delete "Ram:user-startup.old")
  36.     ;
  37.     )
  38. )
  39.  
  40. (protect "S:User-Startup" "rwed")
  41.  
  42. (set DestDir (tackon TargetDir "Pixload"))
  43.  
  44. (startup "Pixload"
  45.    (prompt "\n\n\nAjout d'une assignation dans la user-startup\n (Add assign in user-startup)\n\n Assign Pixload: "Destdir)
  46.    (command "assign Pixload: \""Destdir "\"\n")
  47.    (help "")
  48. )
  49.  
  50. (if (exists DesTDir)
  51.     (
  52.     (set oldDir (tackon TargetDir "Pixload.old"))
  53.     (rename Destdir oldDir)
  54.     )
  55. )
  56.  
  57. (set progdir (tackon Destdir ""))
  58.      (makedir progdir)
  59.  
  60. (makeassign "Pixload" Destdir)
  61.  
  62. (copyfiles (source "Prefs/Pixload.info")
  63.        (dest Targetdir)
  64. )
  65.  
  66. (copyfiles (source "Prog/Pixload")
  67.        (dest Destdir)
  68. )
  69.  
  70. (copyfiles (source "Prog/Pixload.info")
  71.        (dest Destdir)
  72. )
  73.  
  74. (copyfiles (source "Pixload.guide")
  75.        (dest Destdir)
  76. )
  77.  
  78. (copyfiles (source "Pixload.guide.info")
  79.        (dest Destdir)
  80. )
  81.  
  82. (copyfiles (source "Icones.info")
  83.        (dest Destdir)
  84. )
  85.  
  86. (copyfiles (source "Tools.info")
  87.        (dest Destdir)
  88. )
  89.  
  90. (set iconedir (tackon Destdir "Icones"))
  91.       (makedir iconedir)
  92.  
  93. (set imagedir (tackon Destdir "Images"))
  94.       (makedir imagedir)
  95.  
  96. (set prefsdir (tackon Destdir "Prefs"))
  97.       (makedir prefsdir)
  98.  
  99. (set sonsdir (tackon Destdir "Sons"))
  100.       (makedir sonsdir)
  101.  
  102. (set toolsdir (tackon Destdir "Tools"))
  103.       (makedir toolsdir)
  104.  
  105. (copyfiles (source "Icones/")
  106.        (dest iconedir)
  107.        (all)
  108. )
  109.  
  110. (copyfiles (source "Images/")
  111.        (dest imagedir)
  112.        (all)
  113. )
  114.  
  115. (copyfiles (source "Sons/")
  116.        (dest sonsdir)
  117.        (all)
  118. )
  119.  
  120. (copyfiles (source "Tools/")
  121.        (dest toolsdir)
  122.        (all)
  123. )
  124.  
  125. (set dest-dir "SYS:c")
  126.  
  127. (copyfiles (source "c/")
  128.        (dest dest-dir)
  129.        (all)
  130. )
  131.  
  132. (set dest-dir "SYS:s")
  133. (copyfiles (source "s/filetypes")
  134.        (dest dest-dir)
  135. )
  136.  
  137. (set dest-dir "Mui:libs/Mui")
  138. (copyfiles (source "mcc/")
  139.        (dest dest-dir)
  140.        (all)
  141. )
  142.  
  143. (if (not (exists "Pixload:Prefs/Pixload.Prefs"))
  144.     (
  145.       (copyfiles
  146.       (source "Prefs/")
  147.       (dest prefsdir)
  148.       (all)
  149.       )
  150.     )
  151.  
  152. )
  153.  
  154.  
  155. (if (not (exists "Envarc:popupmenu.cfg"))
  156.     (
  157.       (set dest-dir "Envarc:")
  158.       (copyfiles
  159.       (source "env/popupmenu.cfg")
  160.       (dest dest-dir)
  161.       )
  162.       (set dest-dir "Env:")
  163.       (copyfiles
  164.       (source "env/popupmenu.cfg")
  165.       (dest dest-dir)
  166.       )
  167.     )
  168. )
  169.  
  170.  
  171. (if (exists "Env:mui")
  172.     (
  173.       (if (not (exists "Pixload.1.Prefs"))
  174.       (
  175.     (set dest-dir "Env:mui")
  176.     (copyfiles
  177.     (source "mui/Pixload.1.Prefs")
  178.     (dest dest-dir)
  179.     )
  180.     (set dest-dir "SYS:Prefs/env-archive/mui")
  181.     (copyfiles
  182.     (source "mui/Pixload.1.Prefs")
  183.     (dest dest-dir)
  184.     )
  185.       )
  186.       )
  187.       (if (not (exists "Pixload-config.1.Prefs"))
  188.       (
  189.     (set dest-dir "Env:mui")
  190.     (copyfiles
  191.     (source "mui/Pixload-config.1.Prefs")
  192.     (dest dest-dir)
  193.     )
  194.     (set dest-dir "SYS:Prefs/env-archive/mui")
  195.     (copyfiles
  196.     (source "mui/Pixload-config.1.Prefs")
  197.     (dest dest-dir)
  198.     )
  199.       )
  200.       )
  201.     )
  202. )
  203.  
  204. (set dest-dir "SYS:libs")
  205.  
  206. (if (exists "sys:libs/rexxtricks.library")
  207.     (
  208.       (copylib
  209.       (prompt "rexxtricks.library")
  210.       (help "")
  211.       (source "Libs/rexxtricks.library")
  212.       (dest dest-dir)
  213.       (confirm)
  214.       )
  215.     )
  216.     (
  217.       (copyfiles
  218.       (source "Libs/rexxtricks.library")
  219.       (dest dest-dir)
  220.       )
  221.     )
  222.  
  223. )
  224.  
  225.  
  226. (if (exists "sys:libs/whatis.library")
  227.     (
  228.       (copylib
  229.       (prompt "whatis.library")
  230.       (help "")
  231.       (source "Libs/whatis.library")
  232.       (dest dest-dir)
  233.       (confirm)
  234.       )
  235.     )
  236.     (
  237.       (copyfiles
  238.       (source "Libs/whatis.library")
  239.       (dest dest-dir)
  240.  
  241.       )
  242.     )
  243.  
  244. )
  245.  
  246. (if (exists "sys:libs/popupmenu.library")
  247.     (
  248.       (copylib
  249.       (prompt "popupmenu.library")
  250.       (help "")
  251.       (source "Libs/popupmenu.library")
  252.       (dest dest-dir)
  253.       (confirm)
  254.       )
  255.     )
  256.     (
  257.       (copyfiles
  258.       (source "Libs/popupmenu.library")
  259.       (dest dest-dir)
  260.       )
  261.     )
  262.  
  263. )
  264.  
  265.  
  266. (if (exists "sys:libs/rexxsupport.library")
  267.     (
  268.       (copylib
  269.       (prompt "rexxsupport.library")
  270.       (help "")
  271.       (source "Libs/rexxsupport.library")
  272.       (dest dest-dir)
  273.       (confirm)
  274.       )
  275.     )
  276.     (
  277.       (copyfiles
  278.       (source "Libs/rexxsupport.library")
  279.       (dest dest-dir)
  280.       )
  281.     )
  282.  
  283. )
  284.  
  285. (if (exists "sys:libs/parm.library")
  286.     (
  287.       (copylib
  288.       (prompt "parm.library")
  289.       (help "")
  290.       (source "Libs/parm.library")
  291.       (dest dest-dir)
  292.       (confirm)
  293.       )
  294.     )
  295.     (
  296.       (copyfiles
  297.       (source "Libs/parm.library")
  298.       (dest dest-dir)
  299.       )
  300.     )
  301.  
  302. )
  303.  
  304. (if (exists "sys:libs/render.library")
  305.     (
  306.       (copylib
  307.       (prompt "render.library")
  308.       (help "")
  309.       (source "Libs/render.library")
  310.       (dest dest-dir)
  311.       (confirm)
  312.       )
  313.     )
  314.     (
  315.       (copyfiles
  316.       (source "Libs/render.library")
  317.       (dest dest-dir)
  318.       )
  319.     )
  320.  
  321. )
  322.  
  323. (if (exists "sys:libs/vapor_toolkit.library")
  324.     (
  325.       (copylib
  326.       (prompt "vapor_toolkit.library")
  327.       (help "")
  328.       (source "Libs/vapor_toolkit.library")
  329.       (dest dest-dir)
  330.       (confirm)
  331.       )
  332.     )
  333.     (
  334.       (copyfiles
  335.       (source "Libs/vapor_toolkit.library")
  336.       (dest dest-dir)
  337.       )
  338.     )
  339.  
  340. )
  341.  
  342. (if (exists "sys:libs/rxwb.library")
  343.     (
  344.       (copylib
  345.       (prompt "rxwb.library")
  346.       (help "")
  347.       (source "Libs/rxwb.library")
  348.       (dest dest-dir)
  349.       (confirm)
  350.       )
  351.     )
  352.     (
  353.       (copyfiles
  354.       (source "Libs/rxwb.library")
  355.       (dest dest-dir)
  356.       )
  357.     )
  358.  
  359. )
  360.  
  361. (set dest-dir "SYS:Prefs")
  362.  
  363. (if (exists "sys:prefs/pixload-prefs")
  364.     (
  365.     (rename "sys:prefs/pixload-prefs" "sys:prefs/pixload-prefs.old")
  366.     )
  367. )
  368.  
  369. (copyfiles (source "Pixload-Prefs")
  370.        (dest dest-dir)
  371. )
  372.  
  373.  
  374. (set #drawer
  375.      (cat "Ou se trouve le répertoire Rexx de MiamiDX (facultatif) ?\nWhere is Rexx MiamiDx folder ? (optional)")
  376. )
  377.  
  378. (set miami-dir
  379.      (askdir
  380.      (prompt #drawer)
  381.      (default "Sys:")
  382.      (help "")
  383.      )
  384. )
  385.  
  386. (copyfiles (source "MiamiDx/")
  387.        (dest miami-dir)
  388.        (all)
  389. )
  390.  
  391. (set #drawer
  392.      (cat "Ou voulez stocker le 1er lanceur de Pixload ?\nWhere do you want to store first Pixload launcher ?")
  393. )
  394.  
  395. (set dest-dir
  396.      (askdir
  397.      (prompt #drawer)
  398.      (default "Sys:Wbstartup")
  399.      (help "")
  400.      )
  401. )
  402.  
  403. (copyfiles (source "Pixload")
  404.        (dest dest-dir)
  405. )
  406.  
  407. (copyfiles (source "Pixload.info")
  408.        (dest dest-dir)
  409. )
  410.  
  411. (message '\n\nPixload version 4.2\n\n------------------\n\nInstallation réussie, continuer avec celle de Sound DT41 (gestion du son)\n\nInstallation succeeded, go to Sound DT41 installation (sound manager)')
  412.  
  413. (run "wbrun sound-dt-41/install")
  414.  
  415. (exit '\n\n\nPixload 4.2 / Sound DT41 : OK (100%)\n\n------------------\n\nPour Pegasos, regardez dans le répertoire Sound DT41 de cette archive\n\nFor Pegasos users, look at Sound DT41 folder' (quiet))
  416.  
  417.  
  418.